Sei la como faz isso era um exemplo de titulo mesmo
Sepal.Length Sepal.Width Petal.Length Petal.Width
Min. :4.300 Min. :2.000 Min. :1.000 Min. :0.100
1st Qu.:5.100 1st Qu.:2.800 1st Qu.:1.600 1st Qu.:0.300
Median :5.800 Median :3.000 Median :4.350 Median :1.300
Mean :5.843 Mean :3.057 Mean :3.758 Mean :1.199
3rd Qu.:6.400 3rd Qu.:3.300 3rd Qu.:5.100 3rd Qu.:1.800
Max. :7.900 Max. :4.400 Max. :6.900 Max. :2.500
Species
setosa :50
versicolor:50
virginica :50
Esses são os data frames feitos durante as aulas
---
title: "Primeiro Flexdahsboard"
output:
flexdashboard::flex_dashboard:
orientation: rows
#vertical_layout: fill
social: menu
source_code: embed
theme: lumen
---
```{r setup, include=FALSE}
library(flexdashboard)
```
# Imagem
### Imagem
Sei la como faz isso era um exemplo de titulo mesmo
### conteudo aleaório para teste
```{r}
summary(iris)
```
# Gráfico
```{r}
library(ggplot2)
library(plotly)
library(gapminder)
library(stats)
gap4 <- aggregate(lifeExp ~ continent + year,
data =gapminder,
FUN = mean)
linha2 <- ggplot(gap4, aes(year,lifeExp,
color = continent ))+
geom_line()+
geom_point(aes(shape=continent))+
labs(title = "Evolução da expectativa de vida por continente",
x = "Ano",
y = "anos de vida",
color = "Continente")
ggplotly(linha2)
```
# Tabelas
Esses são os data frames feitos durante as aulas
column{.tabset}
---------------------
### Df curso
```{r}
dfCurso <- data.frame("nome"=c("Joana", "Maria", "João", "Pedro", "José"),
"idade"= c(21,25,28,34,18),
"curso"= c("Engenharia","Engenharia","Direito",
"Enfermagem","Engenharia"))
dfCurso %>% DT::datatable()
```
### Base iris
```{r}
data("iris")
iris %>% DT::datatable()
```